object FrmQuickSwitch: TFrmQuickSwitch Left = 391 Top = 288 BorderIcons = [] BorderStyle = bsNone Caption = 'Select a document...' ClientHeight = 299 ClientWidth = 374 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ArtPanel1: TArtPanel Left = 0 Top = 0 Width = 374 Height = 299 Align = alClient AlignmentHorz = taCenter AlignmentVert = tavCenter BorderWidth = 1 ColorHighlight = clRed ColorShadow = clRed EdgesTransparent = True Gradient = False GradientStartColor = clBtnHighlight GradientEndColor = clBtnFace TabOrder = 0 object ArtPanel2: TArtPanel Left = 2 Top = 2 Width = 370 Height = 295 Align = alClient AlignmentHorz = taCenter AlignmentVert = tavCenter BorderWidth = 4 Caption = 'ArtPanel2' ColorHighlight = clBtnFace ColorShadow = clBtnFace EdgesTransparent = True Gradient = False GradientStartColor = clBtnHighlight GradientEndColor = clBtnFace TabOrder = 0 object Panel1: TPanel Left = 5 Top = 5 Width = 360 Height = 247 Align = alClient BevelOuter = bvNone BorderWidth = 1 TabOrder = 0 object Lista: TCSListBox Left = 1 Top = 1 Width = 358 Height = 245 Style = lbOwnerDrawFixed Align = alClient BorderStyle = bsNone Color = clBtnFace Columns = 2 ItemHeight = 22 TabOrder = 0 OnClick = ListaClick OnDrawItem = ListaDrawItem OnMouseDown = ListaMouseDown OnMouseMove = ListaMouseMove end end object Panel2: TArtPanel Left = 5 Top = 252 Width = 360 Height = 37 Align = alBottom AlignmentHorz = taCenter AlignmentVert = tavCenter BorderWidth = 3 ColorHighlight = clBtnShadow ColorShadow = clBtnShadow EdgesTransparent = True Gradient = False GradientStartColor = clBtnHighlight GradientEndColor = clBtnFace TabOrder = 1 object LabelFile: TLabel Left = 4 Top = 3 Width = 76 Height = 13 Caption = 'Combo95.pas' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False Transparent = False end object LabelPath: TdfsEllipsisPanel Left = 4 Top = 18 Width = 352 Height = 15 Hint = '|' IsPath = True Caption = 'sadfsadfsdafsda' Align = alBottom Alignment = taLeftJustify BevelOuter = bvNone ParentShowHint = False TabOrder = 0 end end object Panel3: TPanel Left = 5 Top = 289 Width = 360 Height = 1 Align = alBottom BevelOuter = bvNone TabOrder = 2 end end end object Timer1: TTimer Interval = 20 OnTimer = Timer1Timer Left = 120 Top = 80 end end